Apple Lisa Computer Technical Information 


Apple Lisa 


Operating System Library 


Pascal Interface 


This is a listing of the Pascal interface to the Lisa's operating system library. This OS 
provided a multi-tasking virtual-memory process protected architecture. The file system was 
hierarchical and supported file recovery via disk block tags. The file system also supported 
disk file labels which were small files that could be assigned to each file and which were a 

precursor to the Macintosh file resource fork concept. 
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FILE: "LISA OS INTERFACE. TEXT" 


000001 eoeveoeeeoeneoeeeoeneoeeeoeeeeeeeeeneeeeeneeeeeeeeeeeeeeeeeeeeeeeeeeHeeeeeeeeeeeeneeeeeneeeeeeoe 
000002 eoeveoeeooeneoeeeeneoeeeoeeeeeeeeeneeeeHneeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeeeeneeneoe 
000003 eoeveoeoeoeneoeeeeneoeeeeeoeeneeeeneeeeHneeeeeeeeeeeeeeeeeeeeeeeeeeHeeHeeeeeeeeeeeneeeeeneeneeeoe 
000004 

000005 APPLE LISA OPERATING SYSTEM PASCAL INTERFACE 

000006 


000007 eoeveoeereoereoeeeeneeeeeeeeeeeeeneeeeeneeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeneeneoe 
000008 eoeveoeoeoeneoeeeoeneeeeeeeeeeeeeneeeeHneeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeeneneeneoe 
000009 eoeveoeeoeoeneoeeeeneeeeeeeeeeeeeneeeeneeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeeeeneeneoe 


000010 

000011 USES {$U-} {$U syscall} SYSCALL; 

000012 

000013 

000014 { systemcall definitions unit } 

000015 INTRINSIC 

000016 

000017 { Copyright 1983, 1984, Apple Computer Inc. } 

000018 

000019 INTERFACE 

000020 

000021 CONST 

000022 max_ename = 32; { maximumlength of a file system object name } 
000023 max pathname = 255; { maximumlength of a file system pathname } 
000024 max_label_size = 128; { maximum size of a file label, in bytes } 
000025 len _exname = 16; { length of exception name } 

000026 size_exdata = 11; { 48 bytes, exception data block should have the same 
000027 size as r_eventblk, received event block } 
000028 

000029 size_etext = 9; { event text size - 40 bytes } 

000030 size _waitlist = 10; { size of wait list - should be same as reqptr_list } 
000031 

000032 { exception kind definitions for 'SYS_TERMI NATE’ 
000033 exception  } 

000034 call_term = 0; { process called terminate process } 

000035 ended = 1; { process executed 'end' statement } 

000036 self_killed = 2; { process called kill process on self } 

000037 killed = 3; { process was killed by another process } 

000038 fthr_term = 4; { process's father is terminating } 

000039 bad_ syscall = 5; { process made invalid sys call - subcode bad } 
000040 bad_errnum = 6; { process passed bad address for errnum parm } 
000041 Swap_error = 7; { process aborted due to code swap-in error } 
000042 stk_overflow = 8; { process exceeded max size (+T nnn) of stack } 
000043 data_overflow = 9; { process tried to exceed max data space size } 
000044 parity_err = 10; { process got a parity error while executing } 
000045 

000046 def div_zero = 11; { default handler for div zero exception was called } 
000047 def value oob = 12; { " for value oob exception } 

000048 def ovfw = 13; { " for overflow exception } 

000049 def _nmi_key = 14; { "for NMI key exception } 

000050 def range = 15; { "for 'SYS VALUE OOB' excep due to value range err } 
000051 def str_index = 16; { "for 'SYS VALUE OOB' excep due to STRING index err} 
000052 

000053 bus error = 21; { bus error occurred } 

000054 addr_error = 22; { address error occurred } 

000055 ill] g_inst = 23; { illegal instruction trap occurred } 

000056 priv_violation = 24; { privilege violation trap occurred } 

000057 line 1010 = 26; { line 1010 emulator occurred } 

000058 line 1111 = 27; { line 1111 emulator occurred } 

000059 

000060 unexpected ex = 29; { an unexpected exception occurred } 

000061 
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000062 
000063 
000064 
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000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 


Apple Lisa Computer Technical Information 


div_zero = 31; { exception kind definitions for hardware exception } 
value _oob = 32; 

ovfw = 33; 

nmi_key = 34; 

value_range = 35; { excep kind for value range and STRING index error } 
str_index = 36; { Note that these two cause 'SYS VALUE OOB' excep } 


{DEVI CE_CONTROL FUNCTI ONs } 


dvParity = 1; {RS- 232} 

dvOutDTR = 2: {RS- 232} 

dvOut XON = 3: {RS- 232} 
dvOutDelay = 4; {RS- 232} 

dvBaud = 5: {RS- 232} 

dvinWait = 6; {RS- 232, CONSOLE} 
dvi nDTR = 7: {RS- 232} 

dvi nXON = 8; {RS- 232} 
dvTypeahd = 9; {RS- 232} 

dvDiscon = 10; {RS- 232} 
dvOutNoHS = 11; {RS- 232} 
dvErrStat = 15: {PROFILE} 
dvGetEvent = 16: {CONSOLE} 
dvAutoLF = 17; {RS-232, CONSOLE, PARALLEL PRINTER} {not yet} 
dvDiskStat = 20: {TW GGY, PROFILE} 
dvDiskSpare = 21; {TW GGY, PROFILE} 
{Generic 'slot' position numbers: } 

cd_slotl = 1; 

cd_slot2 = 2; 

cd_slot3 = 3; 

cd_scc = 10; 


cd_paraport = 11; 
cd_ int di sk = 12; 
cd_sony ve 
cd “twiggy = 
cd_ console = th 


{cpu_board values (see minfo), showing which cpu board type is present: } 
cpub_lisa = 0; 
cpub_pepsi = 1; 


{io board values (see minfo), showing which io board type is present: } 
iob_ lisa = 0; 


iob pepsi = 1; 
job sony = 2; 

TYPE 
pat hname = STRING [max_pathname]; 
e_name = STRING [max_ename] 
namestring = STRING [20] 


procinfoRec = record 
progpathname : pathname; 


global _id : LONGI NT; 
father id : LONGI NT; 
priority > 1,,255; 
state : (pactive, psuspended, pwaiting); 
data_in : BOOLEAN 
end; 


Tdstype = (ds shared, ds_private); { types of data segments } 


dsinfoRec = record 
mem size : LONGI NT; 
disc_size : LONGINT 
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numb open : INTEGER; 
Idsn INTEGER; 
boundF BOOLEAN; 
presentF BOOLEAN; 
creatorF BOOLEAN; 
rwaccess BOOLEAN; 
segptr LONGI NT 
vol name e name; 
end; 
t_ex_name = STRING [len_exname]; { exception name } 
longadr = “LONGI NT; 
t_ex_state = (enabled, queued, ignored); { exception state } 
p_ex_data = “t_ex_ data; 
t_ex_data = array [0..size_exdata] of LONGINT; { exception data blk } 
t_ex_sts = record { exception status } 
ex_occurred f : BOOLEAN; { exception occurred flag} 
ex state : t_ex_state; { exception state } 
num_excep : INTEGER; { number of exceptions q' ed} 
hdl _adr : longadr; { handler address } 
end; 


p_env_blk = “*env_blk; 
env_blk = record 


pe : LONGI NT; 
sr : INTEGER; 
d0 : LONGI NT; 
dl: LONGI NT; 
d2 : LONGI NT; 
d3 : LONGINT; 
d4.: LONGINT; 
d5 : LONGI NT; 
d6 : LONGI NT; 
d7 : LONGI NT; 
a0: LONGINT; 
al : LONGINT; 
a2: LONGINT; 
a3: LONGINT; 
a4: LONGINT; 
a5: LONGINT; 
a6: LONGINT; 
a7: LONGINT; 
end; 


p_termex_data = “termex_ data; 


record 

case excep kind 
call_term 
ended, 
self_killed, 
killed, 
fthr_term 
bad_syscall, 
bad_errnum 
Swap_error, 
stk_overfl ow 
data_overflow 
parity_err : (); 


termex_ data = 
LONGINT of 


ill g_inst, 
priv_violation, 


{ terminate e 


{ due to illegal 


ry 


{ address registers 0 - 7 } 


xception 


{ due to process termination } 


instruction, 


privilege violation } 


line 1010, 


Int 


erface 


{ environment block to pass to handler } 
{ program counter } 
{ status register } 
{ data registers 0 - 


data block } 
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line 1111, { due to line 1010, 1111 emulator } 
def_div_zero, 
def_value_oob 


def_ovfw 
def_nmi_key { terminate due to default handler for 
hardware exception } 
(sr : INTEGER; 
pe : LONGI NT); { at the time of occurrence } 
def_range, 
def_str_index { terminate due to default handler for 


'SYS_VALUE_OOB' excep for value 
range or STRING index error } 
(value check : INTEGER 
upper_bound : INTEGER 
lower bound : INTEGER 


return pc : LONGI NT; 
caller_a6  : LONGINT); 
bus_error, 
addr_error { due to bus error or address error } 
(fun_field : packed record { one INTEGER } 
filler : 0..$7ff; { 11 bits } 


r_wflag : BOOLEAN 
i_n_flag : BOOLEAN 
fun_code: 0..7; { 3 bits } 
end; 
access adr : LONGI NT; 
inst_register : INTEGER 
sr_error : INTEGER 
pce_error : LONGINT); 
end; 


p_hard_ex_data = “hard_ex_data; 
hard_ex_data = record { hardware exception data block } 
case excep kind : LONGINT of 
div_zero, value _oob, ovfw 
(sr : INTEGER; 
pe : LONGINT); 
value_range, str_index 
(value check : INTEGER 
upper_bound : INTEGER 
lower bound : INTEGER 
return pc : LONGI NT; 
caller_a6  : LONGINT); 
end; 


accesses = (dread, dwrite, append, private, global_refnum); 
mset = set of accesses 
iomode = (absolute, relative, sequential ) 


UID = record {unique id} 
a,b: LONGI NT 
end: 
timestmp_interval = record { time interval } 
sec : LONGI NT; { number of seconds } 
msec : 0..999: { number of milliseconds within a second } 
end: 
info_type = (device t, volume t, object_t); 
devtype = (diskdev, pascalbd, seqdev, bitbkt, non io) 


filetype = (undefined, MDDFfile, rootcat, freelist, badblocks 
sysdata, spool, exec, usercat, pipe, bootfile, 
swapdata, Swapcode, ramap, userfile, killedobj ect); 


entrytype= (emptyentry, catentry, linkentry, fileentry, pipeentry, ecentry 
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000260 killedentry); 

000261 

000262 { Per-file version control information record } 

000263 Build Control = record 

000264 release number : INTEGER; { public release number } 
000265 buil d_ number : UNTEGER; { internal build membership } 
000266 compatibility_level : INTEGER; { local compatibility level } 
000267 revision level : INTEGER; { iteration of file } 
000268 end; 

000269 

000270 fs_info = record 

000271 name : e@ name; 

000272 dir_path : pathname; 

000273 machine id : LONGI NT; 

000274 fs_ overhead : I NTEGER; 

000275 result scavenge : I NTEGER; 

000276 passwd present : BOOLEAN; 

000277 case otype : info_type of 

000278 device t, volume _t: ( 

000279 iochannel : INTEGER; 

000280 slot_no : INTEGER; 

000281 devicenumb: I NTEGER; 

000282 devt : devtype; 

000283 ejectable, removable: BOOLEAN; 

000284 fs size : LONGINT; 

000285 vol _size : LONGI NT; 

000286 blockstructured, mounted : BOOLEAN; 

000287 opencount : LONGI NT; 

000288 privatedev, remote, lockeddev : BOOLEAN; 

000289 mount pending, unmount pending : BOOLEAN; 

000290 volname, password : e name; 

000291 fsversion, volnum: INTEGER; 

000292 volid : UID: 

000293 backup _volid : UID; 

000294 vol sequence : INTEGER; 

000295 blocksize, datasize, clustersize, filecount : INTEGER; 
000296 label size : | NTEGER; 

000297 freecount : LONGI NT; 

000298 DTVC, DTCC, DTVB, DTVS : LONGINT; 

000299 master copy_id, copy_thread : LONGI NT; 

000300 overmount stamp : UID; 

000301 boot_code : INTEGER; 

000302 boot_environ : I NTEGER; 

000303 privileged, write protected : BOOLEAN; 

000304 master, copy, copy flag, scavenge flag : BOOLEAN; 
000305 vol _left_mounted : BOOLEAN ); 

000306 

000307 object _t : ( 

000308 size : LONGINT; 

000309 psize : LONGI NT; { physical file size in bytes } 
000310 Ipsize : INTEGER; { logical page size in bytes for this file } 
000311 ftype : filetype; 

000312 etype : entrytype; 

000313 DTC, DTA, DTM, DTB, DTS : LONGI NT; 

000314 refnum: INTEGER: 

000315 fmark : LONGI NT; 

000316 acmode : mset; 

000317 nreaders, nwriters, nusers : INTEGER: 

000318 fuid : UID; 

000319 user _type : INTEGER; 

000320 user subtype : I NTEGER; 

000321 systemtype : INTEGER; 

000322 eof, safety_on, kswitch : BOOLEAN; 

000323 private, locked, protected, master file : BOOLEAN; 
000324 file scavenged, file_closed_by_0S, file_left_open : BOOLEAN; 
000325 file portion : INTEGER; 
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build_info : Build Control ) 
end: 
Q. Info = record 
name e name; 
etype : entrytype; 
DTC : LONGI NT 
DTM LONGI NT; 
size LONGI NT 
psize : LONGI NT 
fs_overhead INTEGER 
master BOOLEAN 
protected BOOLEAN 
safety BOOLEAN 
left open BOOLEAN 
scavenged : BOOLEAN 
closed by 0S : BOOLEAN 
nreaders INTEGER 
nwriters INTEGER 
level INTEGER; 
end; 
dctype = record 
dcversion : INTEGER 
dccode : INTEGER; 
dcdata : array [0..9] of LONGINT; { user/driver defined data } 
end: 
t_waitlist = record { wait list } 
length : INTEGER; 
refnum: array [0..size_waitlist] of INTEGER 
end; 
t_eheader = record { event header } 
send pid : LONGI NT; { sender's process id } 
event_type : LONGI NT; { type of event } 
end; 


t_event_text 
p_r_eventbl k 
r_eventblk = 


= “r_event blk; 
record 


event header 


event text : 
end; 


“s_ eventbl k; 


p_s_eventblk = “s_ 
k = t_event_text; 


s_eventbl 


record 
year : 
day: 1... 


time rec = 


366; 


t_eheader; 
t_event text; 


INTEGER; 


hour : +23,,.23) 


chn_kind = (wait_ec, call_ec); 


t_chn sts = record 
chn_type : chn_kind; 
num_events : INTEGER 
open_recv : INTEGER; 
open_send : INTEGER; 
ec_name : pathname 
end; 


array [0..size_etext] of LONGINT; 


{ julian date } 


Poon ieee Lane Laon eee cae 


channel status } 

channel type } 

number of events queued } 
number of opens for receiving } 
number of opens for sending } 
event channel name } 
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{configuration stuff: } 
slot_array = array [1..3] of INTEGER 
minfo = record 
cpu_board, io board, memsize: LONGI NT; 
end: {of minfo} 
{ Lisa Office System parameter memory type } 


pmByte = -128..127; 
pMemRec = array[0..63] of pmByte; 


cd_position = record 


slot: pmbyte; {slot number} 

chan: pmbyte; {channel number} 

dev: pmbyte; {device number} 
end; 


ConfigDev = record 
pos: cd position; {device position} 
nExt Words: pmbyte; {number of valid extension words} 
Extwords: array[1..3] of INTEGER; {extension words} 
Driver! D: LONGI NT; {ID of driver controlling device} 
DevName: e name; {device name} 
end: 


cd_infobuf = record {defines internal driver image} 
cd_driverid: LONGI NT; 
cd_perm BOOLEAN; 
cd_drvrname: e name; 
case cd_devt: devtype of 
diskdev: 

(cd_start_ block: LONGI NT; 
cd_fs_start: LONGINT; 
cd_ejectable: BOOLEAN 
cd_removable: BOOLEAN 
cd_preload: BOOLEAN; ) 

end; {of cd_infobuf} 


{ File Systemcalls } 
PROCEDURE MAKE FILE (VAR ecode: INTEGER; VAR path: pathname; label size:|INTEGER); 
PROCEDURE MAKE PIPE (VAR ecode: INTEGER; VAR path: pathname; label size:|INTEGER); 
PROCEDURE MAKE CATALOG (VAR ecode:|NTEGER; VAR path: pathname; | abel size: INTEGER); 
PROCEDURE MAKE LINK (VAR ecode: INTEGER; VAR path, ref:pathname; | abel size: |NTEGER); 
PROCEDURE KILL_OB) ECT (VAR ecode: INTEGER; VAR path: pathname) 
PROCEDURE UNKILL_FILE (VAR ecode: INTEGER; refnum: INTEGER; VAR new_name:e name); 
PROCEDURE OPEN (VAR ecode: INTEGER; VAR path: pathname; VAR refnum INTEGER; manip: mset) 
PROCEDURE CLOSE OBJECT (VAR ecode: INTEGER; ref num: | NTEGER); 


PROCEDURE READ DATA (VAR ecode : INTEGER 
refnum: INTEGER: 
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000458 data_addr : LONGI NT; 
000459 count : LONGINT; 
000460 VAR actual : LONGI NT; 
000461 mode : iomode 
000462 offset : LONGI NT); 
000463 

000464 PROCEDURE WRITE DATA (VAR ecode : INTEGER; 
000465 refnum: INTEGER; 
000466 data_addr : LONGI NT 
000467 count : LONGI NT 
000468 VAR actual : LONGI NT 
000469 mode : iomode 
000470 offset : LONGI NT); 
000471 

000472 PROCEDURE FLUSH (VAR ecode:|NTEGER; refnum: | NTEGER) 
000473 

000474 PROCEDURE LOOKUP (VAR ecode : INTEGER 
000475 VAR path : pathname 
000476 VAR attributes : fs_info) 
000477 


000478 PROCEDURE INFO (VAR ecode:!INTEGER; refnum INTEGER; VAR refinfo:fs_info) 
000479 


000480 PROCEDURE QUICK_LOOKUP ( VAR ecode  : INTEGER; 

000481 VAR path : pathname; 

000482 VAR InfoRec : Q Info ) 

000483 

000484 PROCEDURE ALLOCATE (VAR ecode : INTEGER 

000485 refnum: INTEGER 

000486 contiguous : BOOLEAN 

000487 count : LONGINT; 

000488 VAR actual : LONGI NT) 

000489 

000490 PROCEDURE TRUNCATE (VAR ecode : INTEGER; refnum: INTEGER) 
000491 

000492 PROCEDURE COMPACT (VAR ecode : INTEGER; refnum: INTEGER); 
000493 


000494 PROCEDURE RENAME ENTRY ( VAR ecode:INTEGER; VAR path: pathname; VAR newname : e name ); 
000495 
000496 PROCEDURE READ LABEL ( VAR ecode : INTEGER 


000497 VAR path : pathname 

000498 data_addr : LONGINT; 

000499 count : LONGINT; 

000500 VAR actual : LONGINT ) 

000501 

000502 PROCEDURE WRITE LABEL ( VAR ecode : INTEGER 

000503 VAR path : pathname 

000504 data_addr : LONGI NT; 

000505 count : LONGINT; 

000506 VAR actual : LONGINT ); 

000507 

000508 PROCEDURE MOUNT ( VAR ecode: INTEGER; VAR vname : e_name; VAR password : e name 
000509 VAR devname : e_name) 

000510 

000511 PROCEDURE UNMOUNT ( VAR ecode: INTEGER; VAR vname : e name ) 
000512 


000513 PROCEDURE SET WORKING DIR ( VAR ecode:!INTEGER; VAR path: pathname ) 
000514 

000515 PROCEDURE GET WORKING DIR ( VAR ecode: INTEGER; VAR path: pathname ) 
000516 

000517 PROCEDURE SET SAFETY ( VAR ecode: INTEGER; VAR path: pathname; on off: BOOLEAN ) 
000518 

000519 PROCEDURE DEVICE CONTROL ( VAR ecode: INTEGER; VAR path: pathname 
000520 VAR cparm: dctype ); 

000521 

000522 PROCEDURE RESET CATALOG (VAR ecode : INTEGER; VAR path: pathname) 
000523 
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PROCEDURE RESET _SUBTREE ( VAR ecode : INTEGER 
VAR path : pathname ) 


PROCEDURE GET_NEXT_ENTRY (VAR ecode : INTEGER; VAR prefix, entry : e name); 
PROCEDURE LOOKUP_NEXT_ENTRY ( VAR ecode : INTEGER; 


VAR prefix : e name 
VAR InfoRec : Q_Info ); 


PROCEDURE SET_FILE_INFO ( VAR ecode : INTEGER 
refnum: INTEGER: 
f si : fs_info ); 


Process Management system calls } 
FUNCTION My_1D : LONGI NT; 


PROCEDURE Info Process (VAR errnum: INTEGER; proc_id : LONGINT 
VAR proc_info : procinfoRec); 


PROCEDURE Yield CPU (VAR errnum: INTEGER; to_any : BOOLEAN) 


PROCEDURE SetPriority Process (VAR errnum: INTEGER; proc_id : LONGI NT; 
new priority : INTEGER) 


PROCEDURE Suspend Process (VAR errnum: INTEGER; proc_id : LONGINT; 
susp family : BOOLEAN); 


PROCEDURE Activate Process (VAR errnum: INTEGER; proc_id : LONGI NT; 
act family : BOOLEAN) 


PROCEDURE Kill Process (VAR errnum: INTEGER; proc_id : LONGINT) 
PROCEDURE Terminate Process (VAR errnum: INTEGER; event_ptr : p_s_eventblk) 
PROCEDURE Make Process (VAR errnum: INTEGER; VAR proc_id : LONGI NT; 
VAR progfile : pathname; VAR entryname : namestring; 
evnt_chn_refnum: INTEGER); 


PROCEDURE Sched Class (VAR errnum: INTEGER; non preempt : BOOLEAN); 


Memory Management system calls } 


PROCEDURE make dataseg(VAR errnum: INTEGER; VAR segname: pathname 
mem size, disc_size: LONGINT; VAR refnum: INTEGER 
VAR segptr: LONGINT; Idsn: INTEGER; dstype: Tdstype); 


PROCEDURE kill dataseg (VAR errnum: INTEGER; VAR segname : pathname) 
PROCEDURE open_dataseg (VAR errnum: INTEGER; VAR segname : pathname 
VAR refnum: INTEGER; VAR segptr : LONGINT; 
ldsn : INTEGER); 
PROCEDURE close dataseg (VAR errnum: INTEGER; refnum: INTEGER); 
PROCEDURE size _dataseg (VAR errnum: INTEGER; refnum: INTEGER 
deltamemsize : LONGINT; VAR newmemsize : LONGI NT; 
deltadiscsize: LONGI NT; VAR newdiscsize: LONGI NT) 


PROCEDURE info _dataseg (VAR errnum: INTEGER; refnum: INTEGER 
VAR dsinfo : dsinfoRec); 
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PROCEDURE 


PROCEDURE 
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PROCEDURE 
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PROCEDURE 
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setaccess dataseg (VAR errnum: INTEGER; refnum: INTEGER; 
readonly : BOOLEAN); 


unbind dataseg (VAR errnum: INTEGER; refnum: INTEGER); 
bind dataseg(VAR errnum: INTEGER; refnum: INTEGER); 
info_ldsn (VAR errnum: INTEGER; Idsn: INTEGER; VAR refnum: | NTEGER) 
flush dataseg(VAR errnum: INTEGER; refnum: INTEGER); 
mem info(VAR errnum INTEGER; 
VAR swapspace, dataspace, 


cur_codesize, max_codesize: LONGI NT); 


info_address(VAR errnum: INTEGER; address: LONGINT; 
VAR refnum INTEGER); 


Management system calls } 


declare excep hdl (VAR errnum: INTEGER 
VAR excep_name : t_ex_name 
entry point : longadr); 


disable excep (VAR errnum: INTEGER 
VAR excep_name : t_ex_name 
queue : BOOLEAN); 


enable excep (VAR errnum: INTEGER 
VAR excep_name : t_ex_name); 


signal _excep (VAR errnum: INTEGER 
VAR excep_name : t_ex_name 
excep data : t_ex_data); 


info_excep (VAR errnum: INTEGER 
VAR excep_name : t_ex_name; 
VAR excep status : t_ex_sts); 


flush excep (VAR errnum: INTEGER 
VAR excep_name : t_ex_name) 


Event Channel management system calls } 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


make event _chn (VAR errnum: INTEGER; 
VAR event _chn_name : pathname); 


kill event _chn (VAR errnum: INTEGER; 
VAR event_chn_name : pathname); 


open_event chn (VAR errnum: INTEGER 
VAR event_chn_name : pathname 
VAR refnum: INTEGER 
VAR excep name : t_ex_name; 
receiver : BOOLEAN) 


close event _chn (VAR errnum: INTEGER; 
refnum: INTEGER); 


info event chn (VAR errnum: INTEGER 
refnum: INTEGER; 
VAR chn_info : t_chn_sts); 


Apple Lisa Operating System Library Pascal Interface -- 11 of 


13 


000656 
000657 
000658 
000659 
000660 
000661 
000662 
000663 
000664 
000665 
000666 
000667 
000668 
000669 
000670 
000671 
000672 
000673 
000674 
000675 
000676 
000677 
000678 
000679 
000680 
000681 
000682 
000683 
000684 
000685 
000686 
000687 
000688 
000689 
000690 
000691 
000692 
000693 
000694 
000695 
000696 
000697 
000698 
000699 
000700 
000701 
000702 
000703 
000704 
000705 
000706 
000707 
000708 
000709 
000710 
000711 
000712 
000713 
000714 
000715 
000716 
000717 
000718 
000719 
000720 
000721 


Apple Lisa Computer Technical Information 


PROCEDURE wait_event_chn (VAR errnum: INTEGER 
VAR wait_list : t_waitlist 
VAR refnum: INTEGER 
event _ptr : p_r_eventbl k) 


PROCEDURE flush_event_chn (VAR errnum: INTEGER; 
refnum: INTEGER); 


PROCEDURE send _event_chn (VAR errnum: INTEGER 
refnum: INTEGER; 
event _ptr : p_s_eventblk 


interval : timestmp interval 
clktime : time_rec); 


{ Timer FUNCTIONS systemcalls } 
PROCEDURE delay _time (VAR errnum: INTEGER 
interval : timestmp interval 


clktime : time_rec); 


PROCEDURE get_time (VAR errnum: INTEGER; 
VAR gmt _ time : time rec); 


PROCEDURE convert time (VAR errnum: INTEGER 
VAR gmt time : time rec; 
VAR local _time : time_rec 
to_gmt : BOOLEAN); 
{Configuration utilities: } 
PROCEDURE CDI NFO(VAR error: INTEGER 
the_pos: cd_position; 
VAR the info: cd_infobuf); 


PROCEDURE CDKILL(VAR error: INTEGER 
the pos: cd_position); 


PROCEDURE CDMAKE(VAR error: INTEGER 
the_pos: cd_position; 
VAR this_info: cd_infobuf); 
PROCEDURE MACH_I NFO(VAR ecode : INTEGER; VAR the_info: minfo); 
FUNCTION ENABLEDBG(enableit : BOOLEAN) : BOOLEAN 
PROCEDURE OSBOOTVOL(VAR error : INTEGER; VAR Vol name: e name); 


PROCEDURE CARDS EQUI PPED(VAR error : INTEGER 
VAR in_slot : slot_array); 


PROCEDURE Read PMem (VAR errnum: INTEGER; VAR my_pMem: pMemRec ); 
PROCEDURE Write PMem (VAR errnum: INTEGER; my_pMem: pMemRec); 


PROCEDURE GetNxtConfig(VAR errnum: INTEGER; VAR NextEntry: LONGINT; 
VAR PMrec: PMemRec; VAR config: Confi gDev) 


PROCEDURE PutNxtConfig(VAR errnum: INTEGER; VAR NextEntry: LONGINT; 
VAR PMrec: PMemRec; VAR config: ConfigDev) 


| MPLEMENTATI ON 
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000722 eoeveoeeoeneoeeeeneoeeeeeeeneeeeeneeeeHneeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeeeneeneeneoe 
000723 FINIS 


UT) 7) Se 
End of File -- Lines: 724 Characters: 26905 
SUMMARY: 

Total number of files : 1 


Total file lines : 724 
Total file characters : 26905 
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